home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-297 qmodem pro 102 / 1.ima / SCRIPT.ZIP / MARKMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-03-03  |  3.1 KB  |  92 lines
  1. ; This script is designed to logon to a BBS using the MarkMail door, enter
  2. ; MarkMail, download a mail packet and then upload any waiting reply packets.
  3. ; Since PC-Board systems can change the name of the MarkMail door (i.e One
  4. ; BBS may call it MM and another MarkM) a string has been added to the
  5. ; beginning of the script called MailDoor, before you run the script be sure
  6. ; to enter the name of the MarkMail Door in the Quotes. In the example
  7. ; you will note that the name MM is used followed by ^M for pressing
  8. ; ENTER. Leave the ^M for enter in your quoted string!
  9. ;
  10. ; For proper operation you must have entered your name and password in
  11. ; the QmodemPro phonebook entry.
  12.  
  13. TurnON   8_BIT                      ; These Are Our Terminal Settings
  14. TurnOFF  LINEFEED                   ; For This Session
  15. TurnOFF  XON/XOFF
  16. TurnON   NOISE
  17. TurnOFF  MUSIC
  18. TurnON   SCROLL
  19. TurnOFF  PRINT
  20. TurnOFF  SPLIT
  21. TurnON   STATUSLN
  22. TurnOFF  DOORWAY
  23.  
  24. STRING   MailDoor
  25.                                    ; *****************************
  26. Assign   MailDoor  "MM^M"          ; The Name Of The MarkMail Door
  27.                                    ; Replace the MM and leave the ^M
  28. TimeOut  45
  29.  
  30. When     "Languages Avail" "1^M"    ; This is For PC-Boards That Support
  31.                                     ; Multi Languages, 1 Should Be The
  32.                                     ; English Default.
  33.  
  34. When     "this correct" "Y^M"       ; In Case It Verifies Your UserName
  35. When     "More?" "n^M"              ; In Case Of More? Prompts
  36. When     "(Enter)" "^M"             ; In Case Of Enter To Continue Prompts
  37. When     "graphics (" "Y^M"         ; In Case Of Graphics Prompts
  38. When     "Protocol Type" "Z^M"      ; MarkMail's Protocol Prompt
  39.  
  40. WaitFor  "first name"
  41. Delay    100
  42. Send     "$USERID^M"
  43.  
  44. Waitfor  "Password"
  45. Delay    100
  46. Send     "$PASSWORD^M"
  47.  
  48. WaitFor  "Board Command"
  49. Delay    100
  50. Send     "$MailDoor"
  51.  
  52. WaitFor  "MarkMail Command?"
  53.  
  54. If $GETMAIL DOWNLOADMAIL         ; If flag to get mail set, goto dl section
  55. DOWNFINISHED:                    ; Label for finished download
  56.  
  57. IF $SENDMAIL UPLOADMAIL          ; If flag to send set, goto ul section
  58.  
  59. UPSUCCESS:                       ; label for finished upload
  60. TimeOut  30 EXITSYSTEM
  61. DELETEF  $REPPATH$PACKET.REP
  62. WaitFor  "MarkMail Command?"
  63. Delay    100
  64. Send     "G^M"
  65. Exit                             ; End of script after dl & ul
  66.  
  67.  
  68. UPLOADMAIL:                      ; Upload REP section
  69. TimeOut  60
  70. Delay    100
  71. Send     "U^M"
  72. WaitFor  "Aborts Transfer"
  73. Delay    500
  74. UPLOAD Z $REPPATH$PACKET.REP
  75. IF $SUCCESS UPSUCCESS               ; If upload successful, goto label
  76. GOTO UPLOADMAIL                     ; If NOT successful, do it again
  77.  
  78.                                     ; Download QWK section
  79. DOWNLOADMAIL:
  80. When     "no messages" DOWNFINISHED
  81. TimeOut  500
  82. Delay    100
  83. Send     "D^M"
  84. WaitFor  "Receive this"
  85. Delay    100
  86. Send     "Y^M"
  87. WaitFor  "Aborts Transfer"
  88. Delay    100
  89. DOWNLOAD Z $QWKPATH
  90. IF $SUCCESS DOWNFINISHED            ; If successful, goto label
  91. GOTO DOWNLOADMAIL                   ; If NOT successful, do it again
  92.